COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(lap tak subr)
C00003 00003	time
C00004 ENDMK
C⊗;
(lap tak subr)
(jrst 0 time)
tak1
(caig a 0 b)
 (popj p)
tak2
(add fxp (% 0 0 5 5))
(124←33 a -2 fxp)	;dmovem
(movem c 0 fxp)
(movei a -1 a)
(caile a 0 b)
(pushj p tak2)
(movem c -4 fxp)
(120←33 a -1 fxp)	;dmove
(move c -2 fxp)
(movei a -1 a)
(caile a 0 b)
(pushj p tak2)
(movem c -3 fxp)
(move a 0 fxp)
(120←33 b -2 fxp)	;dmove
(movei a -1 a)
(caile a 0 b)
(pushj p tak2)
(120←33 a -4 fxp)
(sub fxp (% 0 0 5 5))
(caig a 0 b)
 (popj p)
(jrst 0 tak2)
time
(movei a 18.)
(movei b 12.)
(movei c 6.)
 (move tt me)
 (calli tt 23.)
 (movem tt tim1)
;(movei a 1)
;(104←33 0 501)
;(jfcl)
;(movem a tim1)
(pushj p tak1)
;(movei a 1)
;(104←33 0 501)
;(jfcl)
 (move tt me)
 (calli tt 23.)
 (sub tt tim1)
;(sub a tim1)
;(idivi a 100.)
;(move tt a)
(jrst 0 fix1)
me (0)
tim1 (0)
()